home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / graf / a14.bas < prev    next >
BASIC Source File  |  1993-11-30  |  972b  |  37 lines
  1. 1000 SCREEN@ 0
  2. 1010 CLS
  3. 1020 WINDOW (-5,-5)-(5,5)
  4. 1030 VIEW(0,0)-(640,480)
  5. 1040 PP=3.14159!/180:A=.45!:B=.4!:X2=X
  6. 1050 A$="☆☆☆ 少しずつカーブのずれた曲線を描いて立体感を出しています｡ ☆☆☆"
  7. 1060 AA=LEN(A$):BB=(80-AA)\2:LOCATE 0,24:PRINT SPACE$(BB)+A$
  8. 1070 T1=TIME:S=0 
  9. 1080   FOR X=-4 TO 4 STEP .2!
  10. 1090     Y=-4.4!
  11. 1100     GOSUB *MAIN
  12. 1110     POINT(XX,YY)
  13. 1120     FOR Y=-4.4! TO 4.4! STEP .2!
  14. 1130       GOSUB *MAIN
  15. 1140       LINE -(XX,YY),PSET,5
  16. 1150     NEXT
  17. 1160     S=S+1
  18. 1170   NEXT
  19. 1180   FOR Y=-4.4! TO 4.4! STEP .2!
  20. 1190     X=-4
  21. 1200     GOSUB *MAIN
  22. 1210     POINT(XX,YY)
  23. 1220     FOR X=-4 TO 4 STEP .2!
  24. 1230       GOSUB *MAIN
  25. 1240       LINE -(XX,YY),PSET,4
  26. 1250     NEXT
  27. 1260     S=S+1
  28. 1270   NEXT
  29. 1280 T2=TIME:T=T2-T1:LOCATE 5,1:PRINT "描き上げる時間--";T;"秒  描いた曲線の数--";S;"本" 
  30. 1290   WAIT 100:X2=X2+X
  31. 1300 GOTO 1350
  32. 1310 *MAIN
  33. 1320  XX=1.5!*A*X+A*Y
  34. 1330  YY=B*X-B*Y-.3!*SIN(3*X)*COS(Y)
  35. 1340 RETURN
  36. 1350 '
  37.